home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / iconco1a / splash.frm < prev   
Text File  |  1999-10-07  |  3KB  |  117 lines
  1. VERSION 4.00
  2. Begin VB.Form Form2 
  3.    BackColor       =   &H00000000&
  4.    ClientHeight    =   4035
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1575
  7.    ClientWidth     =   6690
  8.    ClipControls    =   0   'False
  9.    ControlBox      =   0   'False
  10.    Height          =   4470
  11.    Left            =   1080
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4035
  16.    ScaleWidth      =   6690
  17.    Top             =   1200
  18.    Width           =   6810
  19.    WindowState     =   2  'Maximized
  20.    Begin VB.Timer Timer1 
  21.       Interval        =   5000
  22.       Left            =   3240
  23.       Top             =   -360
  24.    End
  25.    Begin VB.Label Label3 
  26.       Alignment       =   2  'Center
  27.       BackStyle       =   0  'Transparent
  28.       Caption         =   "ICON COLLECTION"
  29.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  30.          Name            =   "Swis721 Cn BT"
  31.          Size            =   48
  32.          Charset         =   0
  33.          Weight          =   700
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       ForeColor       =   &H0080FFFF&
  39.       Height          =   1740
  40.       Left            =   600
  41.       TabIndex        =   2
  42.       Top             =   600
  43.       Width           =   8460
  44.    End
  45.    Begin VB.Label Label2 
  46.       Alignment       =   2  'Center
  47.       BackStyle       =   0  'Transparent
  48.       Caption         =   "To Continue Click Anywhere or Wait 5 Seconds "
  49.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  50.          Name            =   "MS Sans Serif"
  51.          Size            =   24
  52.          Charset         =   0
  53.          Weight          =   700
  54.          Underline       =   0   'False
  55.          Italic          =   0   'False
  56.          Strikethrough   =   0   'False
  57.       EndProperty
  58.       ForeColor       =   &H000040C0&
  59.       Height          =   1260
  60.       Left            =   1380
  61.       TabIndex        =   1
  62.       Top             =   4755
  63.       Width           =   7170
  64.    End
  65.    Begin VB.Label Label1 
  66.       Alignment       =   2  'Center
  67.       BackStyle       =   0  'Transparent
  68.       Caption         =   "Welcome: To permanently delete any icon from this collection double click on it."
  69.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  70.          Name            =   "MS Sans Serif"
  71.          Size            =   24
  72.          Charset         =   0
  73.          Weight          =   700
  74.          Underline       =   0   'False
  75.          Italic          =   0   'False
  76.          Strikethrough   =   0   'False
  77.       EndProperty
  78.       ForeColor       =   &H00C000C0&
  79.       Height          =   1905
  80.       Left            =   870
  81.       TabIndex        =   0
  82.       Top             =   2475
  83.       Width           =   7935
  84.    End
  85. End
  86. Attribute VB_Name = "Form2"
  87. Attribute VB_Creatable = False
  88. Attribute VB_Exposed = False
  89. Option Explicit
  90.  
  91. Private Sub Form_Click()
  92. Me.Hide
  93. Form1.Show
  94. End Sub
  95.  
  96. Private Sub Label1_Click()
  97. Me.Hide
  98. Form1.Show
  99. End Sub
  100.  
  101. Private Sub Label2_Click()
  102. Me.Hide
  103. Form1.Show
  104. End Sub
  105.  
  106. Private Sub Label3_Click()
  107. Me.Hide
  108. Form1.Show
  109. End Sub
  110.  
  111. Private Sub Timer1_Timer()
  112. Me.Hide
  113. Form1.Show
  114. End Sub
  115.  
  116.  
  117.